home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 1 / PC World Interactive 1 - Nisan 1997.iso / prog / ofis / 3 / wordweb.lss < prev    next >
Text File  |  1996-05-02  |  742b  |  31 lines
  1. Option Public
  2.  
  3. Declare Function ShowModalWordWeb Lib "WWeb32.DLL" Alias "ShowModalWordWeb" (Byval Ins As String, Byval Outs As String, Byval CloseOnCopy As Long, Byval AWindow As Long) As Long
  4.  
  5. Sub Main
  6.     Dim OutS1 As String * 255
  7.     On Error Goto ShowUnSet
  8.     OutS1 = String$(255,0)
  9.     .SelectWord
  10.     Str1$=.Text.GetText(366,1)
  11.     If Len(Str1$)<2 Then
  12.         .Type("[Left][Left]")
  13.         .SelectWord
  14.         Str1$=.Text.GetText(366,1)
  15.         If Len(Str1$)<2 Then Str1$="" 
  16.     End If
  17.     
  18.     On Error Goto Err2
  19.     If ShowModalWordWeb(Str1$, OutS1, 1, 0) Then
  20.         If Len(Str1$)>1 Then .Type("[CtrlLeft]")
  21.         .Text.DeleteChars(Len(Str1$))
  22.         .Type(OutS1)
  23.     End If
  24.     Goto IsEnd
  25. ShowUnSet:
  26.     Call ShowModalWordWeb("", out, 0, 0)
  27. Err2:
  28.     Resume IsEnd
  29. IsEnd:
  30. End Sub
  31.